home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / MacPerl ƒ / Perl Source ƒ / Perl / t / MakeMacPerlTest < prev    next >
Text File  |  1994-01-02  |  926b  |  34 lines
  1. Perl -Sx "{0}" {"Parameters"}
  2. Exit 0
  3. #!perl
  4.  
  5. print <<'END_HEADER';
  6. tell application "MacPerl"
  7.     with timeout of 300 seconds
  8.         activate
  9.         -- Ask for the test folder. 
  10.         -- This folder must be writeable.
  11.         set p to Do Script "require \"GUSI.ph\"; &MacPerl'Reply(&MacPerl'Choose(&GUSI'AF_FILE, 0, \"Where are the tests ?\", \"\", &GUSI'CHOOSE_DIR))"
  12. END_HEADER
  13.  
  14. while ($script = shift) {
  15.     next if $script =~ /mac/;
  16.     
  17.     print "\t\tDo Script \"print \\\"----- $script" . '.' x (20 - length($script)) . "\\\\n\\\"\"\n";
  18.     
  19.     if ($script =~ /cpp/) {
  20.         print "\t\tDo Script (p & \"$script\") with preprocess\n";
  21.     } else {
  22.         print "\t\tDo Script (p & \"$script\")\n";
  23.     }
  24. }
  25.  
  26. print <<END_FOOTER;
  27.         Save front Window in file (p & ":MacPerlTest.Out")
  28.         delete text in front Window
  29.         Do Script {(p & ":MacPerlTest"), "evaluate", (p & ":MacPerlTest.Out")}
  30.         Save front Window in file (p & ":MacPerlTest.Result")
  31.     end timeout
  32. end tell
  33. END_FOOTER
  34.